Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim ǥ As Range
    Dim Ӹ As Range

    If IsEmpty(Target) Then Exit Sub

    Set ǥ = Target.CurrentRegion
    
        If ǥ.Rows.Count = 1 Then Exit Sub
    
    Set Ӹ = Cells(ǥ.Cells(1).Row, Target.Column)
    
    ǥ.Sort Key1:=Ӹ, Order1:=xlAscending, Header:=xlYes
        
    Cancel = True

End Sub